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01 PROCEDURE AGRAQ 



02 if a REFRESH message arrived from k with bandwidth b for ;'. 

03 B! k <- b; 

04 if a timeout occored, then for each destination j, 

05 let the refresh mesages for j recieved during the 

06 last refresh period T s have a total bandwidth of BTj; 

07 if node is in READY state for ; and BTj > B' JS 
og CALLDIFFCOMP(fi7}'-5;); 

09 b; s ^min{b;,bt;}- 

send REFRESH message to s with bandwidth Bj; 
if link to k failed, for all j set Bj k <- 0. 
if a RELEASE message is received from k with bandwidth b for ;', 

if node is READY for CALL DIFFCOMP (b); 
j J otherwise the node is in WAIT state for send [ACK j] to b, 

lg if last ACK message is received for 

1 7 become READY for j, 

18 send [ACK, j] to s; 



11 
12 
13 
14 



■40 



PROCEDURE DIFFCOMP(j, b) 



01 distribute b among this node and all predecessor neighbors; 

02 terminate as many flows at this node to satisfy this node's share; 

03 for each predecessor neighbor k and its share of b k , 

04 send [RELEASE,;, b k ] to k; 

05 set node as WAIT for j; 



FIG. 3 
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01 PROCEDURE AgreeEvent (type, j, g, k, b) 

02 if(type = REFRESH), B' jgk , <- Bj >gJc , + b; 

03 if (type = TIMEOUT), then { 

04 bt<-^ sj B! gk + I^ 

05 fcw^X^fi — 

06 if (to < Aw), then { 

07 Divide bt into bk such that = bt and h - B j g t 

09 ) 

10 if bt > bw and statej g = PASSIVE,th&n 

11 CALLDiffComp (j,g,bt- bw); 

12 for each it e Sj, send [REFRESH, j, g, k, B ! k ]\ 

13 } 

14 if (type = R ELEA S E), then { 

16 if (statej g = P AS SIVE),lhm 
CALL DiffCompQ, & , b); 
otherwise send [ACK, j, g] to k; 

18 } 

20 if (type -ACK and last ACK message for j and g) { 

21 stately PASSIVE 

99 send [ACK, j, g] to s, if 5 is waiting for ACK; 

j 

24 

if (type -SETUP) then // s is the successor on the path 

25 B l g #+- B Lk+i>;*i g s*-Bi g ., + b; 

26 if(fype = r£flM/Mr£)then 

27 <- - * ^ *- - *; ^ 1 60 

28 PROCEDURE Diff Comp (j, g, b) at node i 

29 if (b < Ij ), then terminate flows for; and 

30 class g that add up to at least b and return; 

32 

Divide into b t and £ 5 / such that 

33 

5X = kand^<B^; 

34 foreachfcg send [RELEASE, j,g,y to £; 

35 statej ig ^- ACTIVE; 
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